home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
do-eve1r
/
form2.frm
< prev
next >
Wrap
Text File
|
1998-12-26
|
2KB
|
59 lines
VERSION 5.00
Begin VB.Form Form2
BackColor = &H00000000&
Caption = "Form2"
ClientHeight = 3450
ClientLeft = 60
ClientTop = 450
ClientWidth = 5070
Icon = "Form2.frx":0000
LinkTopic = "Form2"
ScaleHeight = 3450
ScaleWidth = 5070
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command2
Caption = "&Cancel"
Height = 495
Left = 1200
TabIndex = 2
Top = 2880
Width = 975
End
Begin VB.CommandButton Command1
Caption = "&Send"
Height = 495
Left = 120
TabIndex = 1
Top = 2880
Width = 975
End
Begin VB.TextBox Text1
BackColor = &H00800000&
ForeColor = &H0000FFFF&
Height = 2655
Left = 120
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 0
Top = 120
Width = 4815
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Form1.Winsock2.RemoteHost = ip
Form1.Winsock2.SendData "Meg " & Form1.Winsock2.LocalIP & " says: " & Text1.Text
Form3.Text1.SelText = Form1.Winsock2.LocalIP & " says: " & Text1.Text
Form3.Show
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub